home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abe.d64 / ez big alphabet (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  157 lines
  1. 1 ::::::::::::::::::::::::::::::::::::    :::::::::::: (null) TO 11 ::::::::::::::
  2. 3 :::                              :::    :::     EZ  LARGE  ALPHABET      :::
  3. 5 :::                              :::    ::: A JIM AND JAGGY TU ORIGINAL. :::
  4. 7 :::                              :::    ::::::::::::::::::::::::::::::::::::
  5. 9 :::::::::::::::::::::::::::::::::::: .
  6. 11 POKE53280,15:POKE53281,15:PRINT"[147][152]";
  7. 13 J$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINTJ$;
  8. 15 PRINT"HOW ABOUT AN EASY WAY TO MAKE LARGE
  9. 17 [153]"LETTERS LIKE THIS - 
  10. 19 PRINT"  [146][208]  [146][205]  [146][208]  [146][205]  [146][208]  [146][208]  [146][208]  [146][167]  [146]   [146]  [146][167]  [146] [188] [146][208][208]"
  11. 21 PRINT"  [146][186]  [146][186]  [146]   [146][167]  [146][192]  [146][192]  [146][175]  [146][186]  [146]   [146]  [146][186]  [146]   [146][167][167]"
  12. 23 PRINT"  [146][167]  [146][186]  [146][186]  [146][186]  [146][186]  [146]   [146][186]  [146][167]  [146] [204] [146]  [146][205]  [146][186]  [146][167][167]"
  13. 25 PRINTJ$;
  14. 27 PRINT"THESE ARE MADE WITH THE FOLLOWING -":PRINTJ$;
  15. 29 PRINT"REVERSE SPACE, SHIFT-P, SHIFT-@, SHIFT-O";
  16. 31 PRINT"      [146]            [208]        [186]        [207]
  17. 33 [153]"SHIFT-M, SHIFT-L, SHIFT-*, COMMODORE-M
  18. 35 PRINT"   [205]        [204]        [192]         [167] ":PRINTJ$
  19. 37 GOSUB 227
  20. 39 PRINT"[147]"J$;:PRINT"FIRST CHOOSE YOUR WORD -
  21. 41 [153]"LETS TRY ALIEN.
  22. 43 PRINT"IT HAS 5 LETTERS, SO WE WILL NEED
  23. 45 [153]"5 BLOCKS LIKE THIS -  WAIT.
  24. 47 PRINT"AND WE GET THEM LIKE THIS -
  25. 49 [153]"120 PRINT"[199](34)"    WAIT   WAIT   WAIT  WAIT   WAIT"[199](34)
  26. 51 [153]"WHEN PRINTED TO SCREEN THIS GIVES -
  27. 53 PRINT"    [146]   [146]   [146]  [146]   [146]
  28. 55 [153]"NOW JUST MOVE CURSOR UP TO LINE 120
  29. 57 PRINT"AND TYPE 130 OVER 120, PRESS RETURN.
  30. 59 [153]"MOVE BACK AND TYPE 140 OVER 130, PRESS
  31. 61 PRINT"RETURN. THIS IS WHAT YOU GET -
  32. 63 [153]"    WAIT   WAIT   WAIT  WAIT   WAIT
  33. 65 PRINT"    [146]   [146]   [146]  [146]   [146]
  34. 67 [153]"    WAIT   WAIT   WAIT  WAIT   WAIT
  35. 69 PRINTJ$;:GOSUB 227
  36. 71 PRINT"[147]"J$;
  37. 73 PRINT"    [146]   [146]   [146]  [146]   [146]
  38. 75 [153]"    WAIT   WAIT   WAIT  WAIT   WAIT
  39. 77 PRINT"    [146]   [146]   [146]  [146]   [146]
  40. 79 [153]"NOW LET'S PLACE   (null)   SQR   THEN   TAN  IN -":Q[178]10:[141] 235
  41. 81 [153]"(null)":[141] 235
  42. 83 [153]"SQR":[141] 235
  43. 85 [153]"THEN":[141] 235
  44. 87 [153]"SQR":[141] 235
  45. 89 [153]"(null)":[141] 235
  46. 91 [153]"TAN":[141] 235
  47. 93 [153]"SQR":[141] 235
  48. 95 [153]"(null)":[141] 235
  49. 97 [153]"THEN":[141] 235
  50. 99 [153]"THEN":[141] 235
  51. 101 [153]"OK PRETTY GOOD SO FAR - LET'S PUT LOG
  52. 103 PRINT"ON THE N SO IT WILL LOOK MORE LIKE AN N.":Q=20:GOSUB 235
  53. 105 PRINT"[188]":PRINT""J$;:GOSUB 235
  54. 107 PRINT""J$;:PRINT"NOW WASN'T THAT EASY. MOST LETTERS
  55. 109 [153]"ARE JUST AS EASY, EXCEPT 'S' & 'Z'.
  56. 111 PRINT"    [146][208]
  57. 113 [153]"   (null)(null)WAIT   CENTER IS (null)RWAIT(null)(null)WAIT   (COMD-*)
  58. 115 PRINT"   [204] [146]
  59. 117 [153]"'Z' IS MADE THE OPPOSITE OF 'S' ":[153]J$;:[141] 227
  60. 119 [153]"LOAD"J$;:[153]"THE LETTERS MAY BE MADE WIDER BY
  61. 121 PRINT"INSERTING '[183]' (COMD-Y) AND '[175]' (COMD-P)":PRINTJ$;J$;
  62. 123 PRINT"    [146][183][208]  [146]    [146]  [146][183][208][188] [146][183][208]
  63. 125 [153]"    WAITANDSQR  WAIT    WAIT  WAITTAN   WAIT THEN
  64. 127 PRINT"    [146] [167]  [146][175][186]  [146]  [146][175][186]  [146] [167]":PRINTJ$;J$;:GOSUB 235:GOSUB 235
  65. 129 PRINT"[154]HOW ABOUT A LITTLE COLOR?":PRINTJ$;J$;
  66. 131 PRINT"[150]     [146][183][208]   [146]     [146]   [146][183][208][188]  [146][183][208]
  67. 133 [153]"PRINT     WAITANDSQR   WAIT     WAIT   WAITTAN    WAIT THEN
  68. 135 PRINT"[150]     [146] [167]   [146][175][186]   [146]   [146][175][186]   [146] [167]":PRINTJ$;J$;:GOSUB 227
  69. 137 J$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  70. 139 PRINT"[147][152]"J$;:PRINT"HERE IS ANOTHER WAY -
  71. 141 [153]"LET'S PRINT THE WORD 'GOTCHA' IN REVERSE";:[153]J$;:[141] 235
  72. 143 [153]"PRINT A REVERSE LINE AND USE A CURSOR
  73. 145 PRINT"RIGHT '][146]' WHERE YOU NEED A ' [146]'.
  74. 147 [153]"10 ?"[199](34)"                       "[199](34):[153]J$;
  75. 149 Q[178]10:[141] 235
  76. 151 [153]"IT PRINTS OUT THIS WAY -
  77. 153 PRINT"                          ":PRINTJ$;:GOSUB 235
  78. 155 PRINT"WE'LL NEED 3 LINES LIKE THIS PLUS       TWO PLAIN LINES FOR BORDERS.
  79. 157 [141] 235
  80. 159 [153]J$;:[153]"                              CLOSECLOSE"
  81. 161 [153]"                          "
  82. 163 [153]"                          "
  83. 165 [153]"                          "
  84. 167 [153]"                              CLOSECLOSE":[141] 235
  85. 169 [153]J$;:[153]"AND HERE THEY ARE.":[141] 227
  86. 171 [153]"LOAD"J$;:[153]"       LET'S PUT IN THE GRAPHICS.":[153]J$;
  87. 173 [153]""J$;:[153]"                               CLOSECLOSE"
  88. 175 [153]"                           "
  89. 177 [153]"                           "
  90. 179 [153]"                         CLOSECLOSE"
  91. 181 [153]"                               CLOSECLOSE":[153]J$;:Q[178]20:[141] 235
  92. 183 [153]"DEF        USR(null) USR(null) (null)(null) USR(null)  THEN USR(null)  ":Q[178]10:[141] 235
  93. 185 [153]"DEF         AND  THEN       ANDSQR ANDSQR  ":[141] 235
  94. 187 [153]"DEF        ANDSQR ANDSQR    ANDSQR  THEN  THENCLOSECLOSEPRINT#":Q[178]20:[153]J$:[141] 235
  95. 189 [153]"      CHANGE COLORS AND MAKE WIDER TAN":[153]J$
  96. 191 [153]"ON                                    "
  97. 193 [153]"CONT     USR(null) USR(null) (null)(null) USR(null)  THEN USR(null)  "
  98. 195 [153]"CONT      AND  THEN       ANDSQR ANDSQR  "
  99. 197 [153]"CONT     ANDSQR ANDSQR    ANDSQR  THEN  THENCLOSECLOSE"
  100. 199 [153]"                                    PRINT#"
  101. 201 Q[178]20:[153]J$:[141] 235:[141] 227:[137] 237
  102. 203 [151]53280,15:[151]53281,15:[153]"LOAD  OK! HERE'S THE WHOLE ALPHABET TANPRINT#
  103. 205 PRINT"        [146][208]  [146][208]  [146][208]  [146][205]  [146][208]  [146][208]  [146][208]  [146][167]  "
  104. 207 PRINT"        [146][186]  [146][186]  [146]   [146][167]  [146][192]  [146][192]  [146][175]  [146][186]  "
  105. 209 PRINT"        [146][167]  [146][186]  [146][186]  [146][186]  [146][186]  [146]   [146][186]  [146][167]  "
  106. 211 PRINT"        [146]  [146][167]  [146] [188] [146][208][208][188] [146][208]  [146][208]  [146][208]  [146][208]  [146][208]"
  107. 213 PRINT"        [146]  [146][186]  [146]   [146][167][167]  [146][167]  [146][167]  [146][186]  [146][167]  [146][186]  "
  108. 215 PRINT"      [204] [146]  [146][205]  [146][186]  [146][167][167]  [146][167]  [146][186]  [146]   [146][186][187] [146][205]  "
  109. 217 PRINT"        [146][208] [207] [146][208]  [146][167]  [146][167]  [146][167][167] [223][223][146][169][146][169] [165][167] [207] [146]"
  110. 219 PRINT"       [223][223][146]   [146]   [146][167]  [146][167]  [146][167][167]    [146]  [204][186] [169][146][169]
  111. 221 [153]"       (null) WAIT   WAIT   WAITSQR  WAIT(null)  WAITSQRSQR STEPWAITSTEP(null)(null)WAIT GETWAITGET  WAITSQR":[141] 227
  112. 223 [153]"LOAD"J$;:[153]"     SEE! COMPUTING CAN BE FUNNN!!":[153]J$;
  113. 225 [128]
  114. 227 [153]"CONT"
  115. 229 [153]"       PRESS <SPACE> TO CONTINUE.ONPRINT#"
  116. 231 [161]G$:[139]G$[179][177]" "[167] 231
  117. 233 [142]
  118. 235 [129]D[178]1[164]100[172]Q:[130]:[142]
  119. 237 [143]ARK  -  SAMPLE TITLE  -         .
  120. 239 [153]"LOAD"J$J$"        S A M P L E    T I T L E":[153]""J$J$:Q[178]20
  121. 241 [141] 235
  122. 243 B[178]828:[153][199](142)"LOAD":[129]Z[178]B[164]B[170]20:[135]X:[151]Z,X:[130]
  123. 245 [151]53280,7:[151]53281,7:[153]"LOADDEF";
  124. 247 [153]" ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  125. 249 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  126. 251 [153]" (null)DEFLOG   WAITUSR(null)    WAITUSR(null)    WAIT      WAITUSR(null)    WAIT THEN    WAITUSR(null)(null)
  127. 253 PRINT" [221] [150]   [146] [167]    [146][192]     [146]      [146]      [146] [167]    [146] [175][221]
  128. 255 [153]" (null) DEF   WAIT THEN    WAITANDSQR    WAITANDSQR    WAITANDSQR    WAITANDSQR    WAITANDSQR(null)
  129. 257 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  130. 259 [153]" -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  131. 261 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  132. 263 [153]" (null)CONTLOG   WAITUSR(null)    WAIT    WAITUSR(null)    WAIT THEN      WAITUSR(null) (null)USR  WAIT (null)
  133. 265 PRINT" [221] [154]   [146] [167]    [146]  [223] [223][146]     [146][175][186] [219][219]   [146][175][175] [162][162]  [146] [221]
  134. 267 [153]" (null)CONT    WAITANDSQR    WAIT (null)AND   WAIT    WAIT (null) (null)(null)   WAITANDSQR   WAITANDAND (null)"
  135. 269 [153]" -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  136. 271 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  137. 273 [153]" -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  138. 275 PRINT" [221]    [146][183][208]    [146] [167]    [146][183][208]    [146] [167]    [146][183][208] [207]   [146][208][221]
  139. 277 [153]" (null)    WAITANDSQR    WAIT THEN    WAIT AND    WAIT THEN  (null) (null)WAIT      WAIT (null)
  140. 279 PRINT" [221]    [146] [167]    [146][175][186]    [146][175][186]    [146][175][186] [204][175]   [146]     [146] [221]
  141. 281 [153]" -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  142. 283 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  143. 285 [153]" -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  144. 287 PRINT" [221]   [156]    [146]  [207][183][183]    [146]  [207][183][183]    [146]  [207][183][183]    [146]  [221]
  145. 289 [153]" (null)   CLR    WAIT  (null)ANDAND    WAIT  (null)ANDAND    WAIT  (null)ANDAND    WAIT  (null)
  146. 291 PRINT" [221]   [156]    [146]  [175][175][175]    [146]  [204][175][175]    [146]  [204][175][175]    [146]  [221]
  147. 293 [153]" -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
  148. 295 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145]":FORD=1TO4000:NEXT
  149. 297 PRINT"";
  150. 299 PRINTTAB(11)"[178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178]
  151. 301 [153][163]11)"< PRESS  <SPACE> -
  152. 303 PRINTTAB(11)"[177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177]":SYSB
  153. 305 FORT=1TO29:PRINT:FORD=1TO30:NEXT:NEXT
  154. 307 GOTO203
  155. 309 DATA 32,228,255,240,3,133,251,96,238,32,208,162
  156. 311 DATA 90,202,208,253,141,18,208,240,235
  157.